home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / smfdoo1a / frmprefe.frm (.txt) < prev    next >
Visual Basic Form  |  1999-08-13  |  2KB  |  81 lines
  1. VERSION 5.00
  2. Begin VB.Form frmPreferences 
  3.    BackColor       =   &H80000007&
  4.    Caption         =   "DoorWays Preferences"
  5.    ClientHeight    =   2070
  6.    ClientLeft      =   60
  7.    ClientTop       =   405
  8.    ClientWidth     =   4680
  9.    Icon            =   "frmPreferences.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   2070
  13.    ScaleWidth      =   4680
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton cmdDone 
  16.       Caption         =   "Done"
  17.       Height          =   375
  18.       Left            =   1560
  19.       TabIndex        =   4
  20.       Top             =   1560
  21.       Width           =   1455
  22.    End
  23.    Begin VB.CommandButton cmdDeleteRecentsites 
  24.       Caption         =   "Delete Recent Sites"
  25.       Height          =   375
  26.       Left            =   240
  27.       TabIndex        =   3
  28.       Top             =   960
  29.       Width           =   2055
  30.    End
  31.    Begin VB.CommandButton cmdChangeHomePage 
  32.       Caption         =   "Change Home Page"
  33.       Height          =   375
  34.       Left            =   2400
  35.       TabIndex        =   2
  36.       Top             =   960
  37.       Width           =   2055
  38.    End
  39.    Begin VB.TextBox txtHomePage 
  40.       Height          =   285
  41.       Left            =   1080
  42.       TabIndex        =   0
  43.       Top             =   360
  44.       Width           =   3495
  45.    End
  46.    Begin VB.Label lblHomePage 
  47.       BackColor       =   &H00000000&
  48.       Caption         =   "Home Page:"
  49.       ForeColor       =   &H000000FF&
  50.       Height          =   255
  51.       Left            =   120
  52.       TabIndex        =   1
  53.       Top             =   360
  54.       Width           =   975
  55.    End
  56. Attribute VB_Name = "frmPreferences"
  57. Attribute VB_GlobalNameSpace = False
  58. Attribute VB_Creatable = False
  59. Attribute VB_PredeclaredId = True
  60. Attribute VB_Exposed = False
  61. Private Sub cmdChangeHomePage_Click()
  62.     Open App.Path + "\homepage" For Output As #1
  63.         homepage = txtHomePage.Text
  64.         Write #1, homepage
  65.     Close #1
  66. End Sub
  67. Private Sub cmdDeleteRecentsites_Click()
  68.     frmDoorToTheNet.txtAddress.Clear
  69.        Open App.Path + "\RECENT" For Output As #1
  70.        Close #1
  71. End Sub
  72. Private Sub cmdDone_Click()
  73.     frmPreferences.Hide
  74. End Sub
  75. Private Sub Form_Load()
  76.     Open App.Path + "\HomePage" For Input As #1
  77.          Input #1, homepage
  78.     Close #1
  79.          txtHomePage.Text = homepage
  80. End Sub
  81.